home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World Interactive 1995 August / Personal Computer World (PCW Interactive) (August 1995).iso / demos / bio / bioforge / script / control.scp < prev    next >
Text File  |  1995-02-21  |  2KB  |  171 lines
  1.  
  2.  
  3. { CONTROL_LOAD
  4. ^åû = $âê 
  5.  
  6.  
  7. @Ç¢ PLAYER
  8. I @Ç⌐ LEXMIR THEN
  9. {
  10. ^àï = @Çì REFLECTBATTDRAIN
  11. }
  12.  
  13. I ^ï¿ = 1 THEN
  14. ^Åì = @Çì BIOREPAIR
  15.  
  16. ^ï║ = 0
  17. ^ï╜ = 0
  18. I ^ç╖ THEN
  19. @Ç¥ READY_GRDHALL 
  20. @Ç¥ READY_MECHO2
  21. @Ç¥ READY_REACTBOT
  22. @Ç¥ READY_GRDCON
  23. @Ç¥ READY_GRDHANG
  24. @Ç¥ READY_MARINE5
  25. @Çì ANIM_RTR
  26. @Çì ESCHERS_PLEES_FOR_HELP
  27. @Çì LEVEL1TREMORS
  28. @Çì ANI_BIKE_BATT_STORAGE
  29.  
  30. I @Ç¢ MASTABA THEN
  31. {
  32. I ^Ç┐ THEN
  33. K 
  34. E 
  35. Y OPR8 OPR1 OPR6 OPR4 OPR9 OPR2 OPR7
  36. }
  37. I ^êé == 0 THEN
  38. {
  39.  
  40. I @Ç¢ CR_BOT THEN
  41. {
  42. I @Ç¡ CURFIG CTR THEN Y CTR1 CTR2 CTR3 CTR4 CTR5 CTR6 CTR7
  43. I @Ç¡ CURFIG HLC THEN Y AIR2 ELC2 HLC1 HLC2 HLC3 HLC4 HLC5
  44. I @Ç¡ CURFIG AIR THEN Y AIR1 AIR2
  45. I @Ç¡ CURFIG RTR THEN Y AIR1 RTR1 RTR2 RTR3 RTR4 RTR5 RTR6
  46. }
  47. E ! "Can't find Cr_Bot (Forklift bot)" 
  48. }
  49.  
  50.  
  51. I ^üù == 1 THEN
  52. {
  53. I @Ç¢ GRDCON THEN
  54. {
  55. Y CTR1 CTR2 CTR3 CTR4 CTR5 CTR6 CTR7 CTR8
  56. }
  57. }
  58. }
  59.  
  60. { FORKMON1_USE
  61. @Ç¢ PLAYER
  62. I @Çä NOTIN -45 45 THEN é 
  63. ^Ç╢ ++
  64.  
  65. £ FORKLOC1 GRADUAL
  66. M LOOK_CONSOLE FREEZE
  67. @Ç¥ GR_ROBOTCONTROLPANEL 1
  68.  
  69. ^Ç╢ --
  70. }
  71. { FORKMON2_USE
  72. @Ç¢ PLAYER
  73. I @Çä NOTIN -45 45 THEN é 
  74. ^Ç╢ ++
  75.  
  76. £ FORKLOC2 GRADUAL
  77. M LOOK_CONSOLE FREEZE
  78. @Ç¥ GR_ROBOTCONTROLPANEL 1
  79.  
  80. ^Ç╢ --
  81. }
  82. { CTR_LOAD
  83. @Ç¥ ACTIVATE_GRDCON
  84. }
  85.  
  86. { HLC_LOAD
  87. @Ç¥ ACTIVATE_GRDHALL
  88. @Ç¥ ACTIVATE_MARINE5
  89. }
  90. { ELC_LOAD
  91. ^ê¿ = @Çë 
  92.  ^ê¿ 0 
  93. O $Çû 
  94. }
  95.  
  96. { CTRELVDR_USE
  97.  
  98. @Ç¢ PLAYER
  99. I @Çä NOTIN 50 130 THEN é 
  100. M PUSH_BUTTON CONTINUE
  101. W 10
  102.  
  103. I ^çå THEN
  104. {
  105.  
  106. @Çå `Çì 150 
  107. é 
  108. }
  109. E 
  110. @Çå `Çì 150 -2048 
  111. I ^ä« = $ââ THEN J #Çç 
  112. I ^ä« = $âé THEN J #Çê 
  113. :BEGINOPENINGELEVATOR
  114. @Çì ELEVATOR_DOOR_OPEN
  115. ^ä« = $âé 
  116. @Çì CONTROLAUTOELEVATORCLOSE
  117. é 
  118. :CLOSE_DR1
  119. @Çì ELEVATOR_DOOR_CLOSE
  120. ^ä« = $ââ 
  121. }
  122.  
  123. { SHO_LOAD
  124. O $ÇÜ 
  125. }
  126.  
  127.  
  128. { WARNME
  129. I ^êÇ = $üé THEN @Ç¥ WARNMEVOX
  130. }
  131. { WARNMEVOX
  132. P ~ÇÇ 
  133.  
  134. I @Çó ~ÇÇ THEN é 
  135.  
  136. @üì `âà $üê "COMPUTER: Danger! Reactor approaching~critical state./FATTENTION : Réacteur se~rapproche du point critique./GWarnung: Reaktor wird kritisch!" 
  137. W 30 SECONDS
  138. i LEX RTRALARM
  139. }
  140. { ELV_C21_USE
  141. I ^çç = 1 THEN é 
  142. I @Çä NOTIN 50 130 THEN é 
  143. ^Ç╢ ++
  144. M PUSH_BUTTON CONTINUE
  145. W 5
  146. @Ç¥ ELEVATOR_MONITOR
  147. ^Ç╢ --
  148. }
  149. { ELV_C22_USE
  150. I ^çç = 1 THEN é 
  151. I @Çä NOTIN -115 -45 THEN é 
  152. ^Ç╢ ++
  153. M PUSH_BUTTON CONTINUE
  154. W 2
  155. I ^î¿ AND ^THEN
  156. {
  157. I @Çæ ANYWHERE BLASTER = 0 THEN
  158. {
  159. i LEX NEEDGUN
  160. }
  161. }
  162. W 3
  163. @Ç¥ ELEVATOR_MONITOR
  164. ^Ç╢ --
  165. }
  166.  
  167.  
  168.  
  169.  
  170. //$ 26 - version number
  171.